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**F ILE**1D**BASUNLOCK 


BBBBBBBB AAAAAA SSSSSSSS UU UU NN NN LL 000000 CCCCCCCC COKK KK 
BBBBBBBB AAAAAA SSSSSSSS_ UU UU NN NN LL 000000 cccccccc =KK KK 
BB BB AA AA SS UU UU NN NN LL 00 oo CC KK KK 
BB BB AA AA SS UU UU NN NN LL 00 oo CC KK KK 
BB BB AA AA SS UU UU NNNN NN LL 00 oo CC KK KK 
BB BB AA AA SS UU UU NNNN NN LL 00 oo CC KK KK 
BBBBBBBB AA AA SSSSSS UU UU NN NN NN LL 00 oo CC KKKKKK 
AA An SSSSSS UU UU NN NN NN LL 00 oo CC KKKKKK 
6B BB AAAAAAAAAA SS UU UU NN NNNN LL 00 oo CC KK KK 
BB BB AAAAAAAAAA SS UU UU NN NNNN LL 00 oo CC KK KK 
BB BB AA AA SS UU UU NN NN LL 00 oo cc KK KK coos 
6B BB AA SS UU UU NN NN LL 00 oo cc KK KK cece 
BBBBB88B AA AA SSSSSSSS UUUUUUUUUU NN NN LLLLLLLLLL 000000 CCCCCCCC SCKK KK cece 
BB AA AA SSSSSSSS UUUUUUUUUU NN NN LLLLLLLLLL 000000 cccccccc KK KK cece 
LL IIIII1 SSSSSSSS 
LL 1111 SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] Ss 
LL I] SS 
LLLLLLLLLL 111111 SSSSSSSS 
LLLLLLLLLL 111111 SSSSSSSS 
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4 38 
; 
; BR 
8 B28 
9 000 
10 0010 
1} O01 
Bil 
14 0014 
15 0015 
16 8018 
17 001 
18 0018 
19 0019 
20 Bost 
21 0021 
$¢ B05§ 
§ 002 
4 0024 
25 Bose 
26 0026 
e7 0027 
28 2028 
$3 5 94 
0 0030 
31 0031 
3 003 
3 003 
34 0034 
35 0035 
36 0036 
$i 0037 
8 0038 
39 0039 
40 0040 
41 0041 
4 004 
4 004 
44 Bee 
45 045 
46 0046 
47 0047 
48 0048 
49 0049 
50 0050 
51 0051 
52 0052 
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18-Sep-1984 91:96:13 rete Bliss-32 V4.0- 
14-Sep-1984 11:56:44 BASRTL.SRCJBASUNLOCK 
MODULE BASSUNLOCK ( ' Basic UNLOCK construct 
pOENT = *'1-002' ' File: BASUNLOCK.B 
= 


BEGIN 


SRR ROR EAA AAAAA HARA AHAEEHHEHHERETAEAAEAEKKETERARARERARRAREEARAAARE ERE 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
' DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


a 
® 
® 
® 
4 ® 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
i® ONLY IN ACCORDANCE WITH THE TERMS OF H LICENSE AND WITH THE ® 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
a 
i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. . 
* 
® 
® 
* 
& 
® 


'= DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ie 
aOR RRR RAAAE RARER EAAAAAAAEAEAAAEAA AERA TATAERAAAEAAAAAAERA Ree 
' 

++ 


! FACILITY: 
Basic support library - user callable 


ABSTRACT: 
This module is the UPI level of the Basic UNLOCK construct. | 
a > ay os te setup the 1/0 data base for the LUN and go directly to 
e evel. 


User access mode - AST reentrant. 
AUTHOR: Donald G. Petersen, CREATION DATE: 28-Feb-79 
MODIFIED BY: 

DGP, 28-Feb-79 : VERSION 01 


1-001 - original. DGP 28-Feb-7 
1-002 - Set up ISBSA_USER_FP. JBS 25-JUL-1979 


! 
' 
| ENVIRONMENT : 


!<BLt /PAGE> 


—— = 


-— 


c--- Ur - _—— _ _ __ —— —_—_ - ——_—- - _ _ —_——_—— —- —_— 


| H 4 
" BASSUNLOCK 16-Sep-1984 01:26:13 VAK=11 BL iss-32 v4.0-74 Page 2 
kei: eaeen ihe Fhiseilz | eXsa Teta isacuncock. o%2:1 25 


I; 4 3 1! 

i3 5 054 1 ! SWITCHES: 
3 § 055 ! : 

: 3 0 ° 1 SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 

; 66 $089 1: 

; 661 060 1 ! LINKAGES 

; 6¢ . oe 

a. 062 1 

; «666 065 1 REQUIRE ‘RTLIN:OTSLNK'; ! Define all Linkages 

; & 92 1 

3 oe 93 1! 

; 6 Bre 1 ! TABLE OF CONTENTS: 

; 8 029% 

: 70 49 1 FORWARD ROUTINE 

: 4 ot 4 : BASSUNLOCK : NOVALUE; ! UPI Level Sequential UNLOCK 
‘ee. 0500 1! 

: 74 0501 1 ! INCLUDE FILES: 

Ro eT 

; 4 0504 1 REQUIRE "RTLML:OTSISB":; ! ISB definitions 

: 6 Oe7§ : REQUIRE *RTLML:OTSLUB'; ' LUB definitions 

: 3 34 : REQUIRE ‘RTLIN:RTLPSECT’; ! Define DECLARE_PSECTS macro 
; 8 aero 1 LIBRARY ‘RTLSTARLE'; ! Starlet system macros 

; 84 911 #1 

3 85 oat} 7 3 

3 86 091 1 ! MACROS: 

Sm Sg 0914 1! 

; 88 0915 1! NONE 

; 9916 7! 

: 90 091 1 ! EQUATED SYMBOLS: 

; 0918 1! NONE 

. 0919 1! 

; § 0920 1! 

; 94 0921 1 ! PSECT DECLARATIONS: 

; 09 ; 1! 

: 96 09 1 DECLARE_PSECTS (BAS); 

2 oF 924 1! 

; 98 925 1 ! OWN STORAGE: 

s 9 9 $ 1! 

; 100 1! NONE 

3 6101 928 1! 

3 106 b 9 1 ! EXTERNAL REFERENCES: 

; 10 930 1! 

: 104 38 1 

: 105 9 § 1 EXTERNAL ROUTINE . , 
; 196 it} 1 BASSSREC_UNL : JSB_RECO NOVALUE, ' REC Level processing - RMS interface 
> 10 934 1 i UNLOCK 

: 108 0935 1 BAS$$CB_PUSH : JSB_CB_PUSH NOVALUE, ' Load register CCB 

: 109 0936 1 BAS$$CB"POP : JSB_CB_POP NOVALUE, ! Done with register CCB 

3; 110 0937 1 BASS$STOP_IO : NOVALOE; ! Signal fatal BASIC 1/0 error 


WecSeoctaGe QU:86:13 WALSHE SLienage ataOe Teg, Page 


'¢ 
The following are the error codes used by this module. 


— LITERAL 
ASSK _IO_CHANOT : UNSIGNED (8); ! 1/0 channel not open 


—> > — 4 3 


a ae 


4 
A OCcK 1d-se “19 1:26:13 AX-11 Bliss-32 v4.0-74 
° ak ant tS So YBASRTL-SRe BASUNLOCK .852;1 
; 120 $ 1 GLOBAL ROUT INE BASSUNLOCK ( ! UNLOCK sequential 
121 1 UNI ! logical unit number 
1 ¢ Ree 1 ) : NOVALUE = 
156 1 te 
' 5 351 ; FUNCTIONAL DESCRIPTION: 
1 $ 3g 3 This routine will set up the 1/0 data base for this LUN if necessary 
128 4 1! and then go directly to the REC Level. When control is returned to 
129 ay a this routine, it pops the CCB off of the 1/0 system. The actual inter- 
; : 9 $ : } face to RMS is done at rhe REC Level. The current record is unlocked. 
1 é § 1 | FORMAL PARAMETERS: 
1 959 1! 
1 Oo ys UNIT. rlu.v Logical unit number 
i 3 b962 1 IMPLICIT INPUTS: 
1 a368 1 : NONE 
139 0965 1! 
140 pace 1 ! IMPLICIT OUTPUTS: 
141 336 1! 
16g : : } 1S8$8_STTM_TYPE the statemer’ 
144 $990 1 ' COMPLETION CODES: 
GBR Tne 
147 731: 
148 bore 1! SIDE EFFECTS: 
149 0975 1: 
Re oe tp 
15 0978 1 i-- 
188 0979 1 
154 80 BEGIN 
Be Bounty 
fe ei 
159 985 GLOBAL REGISTER 
199 5S CCB = K_CCB_REG : REF BLOCK C, BYTE); 
+ LOCAL 
16° FMP : REF BLOCK C, BYTE); 
+ + 144 FMP = FP; 
'¢ 
189 4 ! Allocate the LUB/ISB/RAB for this unit if necessary. Stcre new (B (con- 
169 : : trol block) im OTS$S$A_CUR_LUB. Store signed unit number in LUBSW_LUN. 
170 "  BASS$CB_PUSH (.UNIT, LUBSK_ILUN MIN); 
44. 144 CCB CISBSA_USER_FP) = .FMP ssc" savé_FP2; 
'e 
178 : : If the channel is not open, give an error message. 
175 1001 ; 
176 1002 If ( NOT .CCB CLUBSV_OPENED]) THEN BASSSSTOP_IO (BAS$K_IO_CHANOT); 


—@w 


sss 


K & - 
ae se e8ep- 1 eRe Fhi8eitz | eeNsaT See feaguncocn Se: 1 


14-Sep-1 4% 
177 
8 ; '¢ 
60 5 i Now that the data base is in place, store the statement type and go 
1 


i : directly to the REC level. 


CCB C1S8$8 ays TYPE] = ISBSK_ST_TY_UNL; 
BASSSREC_UAL 


Now that the UNLOCK has been done, pop the (CB off the 1/0 system. 
"  BASS$SCB_POP (); 
END; 


ee ee ee ee 
02 co CD CD CD CD 

So Son Rowe 

tk at i ts 

oo 

Fuwn-0C0@ 


Fe 3 


Se Se ee Oe Oe Ge Se Ge ee Ge Se ae 


'End of BASSUNLOCK 
PISS OCR 


BASSSREC_UNL, BASS$S$CB PusH 
-EXTRN BASS$SCB POP. pBAsSss10P I 
-EXTRN BASS$K_IO_C 


-PSECT _BASSCODE,NOWRT, SHR, PIC,2 


083Cc 00000 ~ ENTRY pASeine OCK.. Save R2,R3,R4,R5,R11 
53 5D D0 00008 MOVL FMP 
50 08 ce 0000 MNEGL 48" RO 
52 04 AC 00 00008 MOVL UNIT, R2 
000000006 09 16 0000 JSB BASS $$cB- PU PUSH 
FF4C CB OC A3 DO 0001 MOVL 1ecFMp); -180(CCB) 
0B FC AB 8 0001 BLBS 4(CCB) 
7E 006 8F 9A 0001C MOVZBL wBASS K_{0 CHANOT , -(SP) 
000000006 00 1 FB 900 0 CALLS BASS$ST0 
FF71 (CB A 90 00027 1$: MOVB Ae} {5 ad 
000000006 00 16 0002Cc JSB erSésace: vn 
000000006 00 16 00038 JSB BAS$$CB_POP 
04 000 RET 


Routine Size: 57 bytes, Routine Base: _BASSCODE + 0000 


; 189 1015 1 
; 190 1916 1 END ! End of module BASSIINLOCK 
3; «191 1017 1 
3 192 1018 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 


_BASSCODE 57 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


BASRYNLOCK ie sean Pyie:te | FBSAt sae feaguncocn o$2;1 Page | f 


Library Statistics 


eccccese Syabol§ coccceee Pages Processing 
File Total Loaded Percent Mapped Time 
~-$255$DUA28 : (SYSLIBISTARLET.L32;1 9776 1 0 581 00:01.2 


COMMAND QUALIFIERS 
FLESS/EMECK ONE FELD. ENE EAL GPT IMI SED /HOTRALE/L 151 1 SO sBASIR. OCR /OR 0B IS 1 BASEN, OCK MSRC$:BASUNLOCK/UPDATE=(ENH$ : BASUNLOCK 


Size: 57 code + 0 data bytes 


Elapsed tees 00:17.2 
Lines/CPU Min: 7597 
Lexemes/CPU-Min: 45350 
poneey Used: 108 pages 
Compilation Complete 


ENT CORPORATION 
ND PROPRIETARY 


003 AH-BT13A-SE - | | PM 
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